home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
245
/
radiomed.lst
< prev
next >
Wrap
File List
|
1988-10-10
|
4KB
|
146 lines
@Dialog_box
Procedure Dialog_box
' DIALOG CONSTRUCTION SET (c) Programmed by Derrick Anthony Hall
'
' PERMISSION GRANTED TO USE DIALOG CONSTRUCTION SET (c)
' GENERATED SOURCE CODE WITHIN GFA BASIC PROGRAMS.
'
' Source code can be published or upload to bulletin boards.
'
' I only ask that you give VISIBLE CREDIT within your program to
' Dialog Construction Set resource editor.
'
' Have fun and enjoy!
' Merge this source LST file into your program
@Shrink_grow(1,5,5,5,5,96,17,444,140)
Sget Yourname$
Graphmode 1
Deffill 0,2,8
' DIALOG box parameters
' Box #1
' Insert Deffill here, to fill boxes with color or pattern
Pbox 124,31,519,186
Box 124,31,519,186
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' Box #2
' Insert Deffill here, to fill boxes with color or pattern
Deffill 1,2,6
Pbox 126,34,517,183
Box 126,34,517,183
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' Box #3
' Insert Deffill here, to fill boxes with color or pattern
Pbox 138,41,504,53
Box 138,41,504,53
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' Box #4
' Insert Deffill here, to fill boxes with color or pattern
Pbox 156,62,484,160
Box 156,62,484,160
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' TOUCHEXIT button parameters
' Box #1
' Insert Deffill here, to fill boxes with color or pattern
Pbox 269,169,381,181
Box 269,169,381,181
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' RADIO button parameters
' Box #1
Clr Radio1%
' Insert Deffill here, to fill boxes with color or pattern
Pbox 213,82,422,96
Box 213,82,422,96
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' Box #2
Clr Radio2%
' Insert Deffill here, to fill boxes with color or pattern
Pbox 213,112,421,126
Box 213,112,421,126
Deffill 0,2,8 !reset Deffill to normal, if box area is colored or filled.
' To change text FONT and COLOR use the command DEFTEXT
Text 311,178,"EXIT"
Text 287,93,"Radio One"
Text 286,123,"Radio Two"
Text 209,50,"Radio demo by Derrick A. Hall"
Do
K=Mousek
While K=1
Mouse X,Y,K
If X>269 And Y>169 And X<381 And Y<181 And K
Graphmode 2
Deffill 1,2,8
Pbox 269,169,381,181
Graphmode 3
Text 311,178,"EXIT"
Pause 8
Goto Buttonend
Endif
If X>213 And Y>82 And X<422 And Y<96 And K
Deffill 1,2,8
If Radio1%=0
Radio1%=1
Deftext 0
Graphmode 1
Pbox 213,82,422,96
Graphmode 2
Text 287,93,"Radio One"
Pause 8
Else
Graphmode 1
Radio1%=1
Deffill 0,2,8
Pbox 213,82,422,96
Box 213,82,422,96
Deftext 1
Text 287,93,"Radio One"
Radio1%=0
Pause 8
Endif
Endif
If X>213 And Y>112 And X<421 And Y<126 And K
Deffill 1,2,8
If Radio2%=0
Radio2%=1
Deftext 0
Graphmode 1
Pbox 213,112,421,126
Graphmode 2
Text 286,123,"Radio Two"
Pause 8
Else
Graphmode 1
Radio2%=1
Deffill 0,2,8
Pbox 213,112,421,126
Box 213,112,421,126
Deftext 1
Text 286,123,"Radio Two"
Radio2%=0
Pause 8
Endif
Endif
Wend
Loop
Buttonend:
Sput Yourname$
Clr Yourname$
Graphmode 1
@Shrink_grow(0,5,5,5,5,103,20,479,166)
Return
'
Procedure Shrink_grow(Gem,Lightx,Lighty,Wsgx,Hsgy,Lox,Loy,Wx,Hy)
Dpoke Gintin,Lightx
Dpoke Gintin+2,Lighty
Dpoke Gintin+4,Wsgx
Dpoke Gintin+6,Hsgy
Dpoke Gintin+8,Lox
Dpoke Gintin+10,Loy
Dpoke Gintin+12,Wx
Dpoke Gintin+14,Hy
If Gem=1
Gemsys (73)
Else
Gemsys (74)
Endif
Return